home *** CD-ROM | disk | FTP | other *** search
/ CGI How-To / CGI HOW-TO.iso / chap8 / 8_3 / survey.cgi next >
Encoding:
Text File  |  1996-06-15  |  1.6 KB  |  64 lines
  1. #!/usr/local/bin/perl
  2.  
  3. unshift (@INC, "/usr/local/etc/httpd/cgi-bin/Library");
  4. require "cgi-lib.pl";
  5. &ReadParse(*MYDATA);
  6.  
  7. print "Content-type: text/html\n\n";       
  8.  
  9. if ($MYDATA{'gender'} eq "male")
  10.   {
  11.  
  12.  
  13.   print <<"  end_of_html";
  14.   <HTML><HEAD>
  15.   <TITLE>Medical Survey Part Two</TITLE>
  16.   </HEAD><BODY>
  17.   <FORM METHOD = "POST" ACTION = "/male_survey.pl">
  18.   <TABLE>
  19.   <TR ALIGN LEFT>
  20.   <TH>Have you had a check for prostate cancer?</TH>
  21.   <TD><SELECT NAME = "prostate_cancer" SIZE = "2">
  22.   <OPTION SELECTED VALUE = "no">No
  23.   <OPTION VALUE = "yes">Yes
  24.   </SELECT></TD>
  25.   </TR>
  26.   </TABLE>
  27.   <P><CENTER>
  28.   <INPUT TYPE="hidden" NAME = "name"= VALUE="$MYDATA{'name'}">
  29.   <INPUT TYPE="hidden" NAME = "gender" VALUE="$MYDATA{'gender'}">
  30.   <INPUT TYPE="SUBMIT" VALUE="Send the information">
  31.   <INPUT TYPE="RESET" VALUE="Clear this form">
  32.   </CENTER></FORM></BODY></HTML>
  33.   </BODY></HTML>
  34.   end_of_html
  35.   die
  36.   }
  37.  
  38.  
  39. else
  40.   {
  41.   print <<"  end_of_html";
  42.   <HTML><HEAD>
  43.   <TITLE>Medical Survey Part Two</TITLE>
  44.   </HEAD><BODY>
  45.   <FORM METHOD = "POST" ACTION = "/female_survey.pl">
  46.   <TABLE>
  47.   <TR ALIGN LEFT>
  48.   <TH>Have you had a check for breast cancer?</TH>
  49.   <TD><SELECT NAME="breast_cancer" SIZE = "2">
  50.   <OPTION SELECTED VALUE = "no">No
  51.   <OPTION VALUE = "yes">Yes
  52.   </SELECT></TD></TR></TABLE><P><CENTER>
  53.   <INPUT TYPE="hidden" NAME = "name" VALUE="$MYDATA{'name'}">
  54.   <INPUT TYPE="hidden" NAME = "gender" VALUE="$MYDATA{'gender'}">
  55.   <INPUT TYPE="SUBMIT" VALUE="Send the information">
  56.   <INPUT TYPE="RESET" VALUE="Clear this form">
  57.   </CENTER></FORM></BODY></HTML>
  58.   end_of_html
  59.   die
  60.   }
  61.  
  62.  
  63.  
  64.